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Title: A program to help clean disk drives 
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1 


REM **** A DISK DRIVE CLEANER PROGRAM **** 






10 


ON ERR GOTO 500 






11 


VPOS=13 :HPOS=6 : 






20 


TEXT : HOME : VPOS=l : HPOS=30 : PRINT"DISK CLEANING PROGRAM" 






30 


VPOS=6:HPOS=6: PRINT CHR$(2); 






40 


PRINT"This program allows you to use one of the commercially available" 






50 


PRINT"head cleaner disks with your Apple ///. Input how many drives you" 






60 


PRINT"you will be cleaning (up to four) and insert the cleaner disk in" 






70 


PRINT"the appropriate drive at the prompt .": TEXT 






105 


ON ERR IF ERR=254 OR ERR=5 THEN PRINT CHR$ ( 7 ) ; : GOTO 110:ELSE GOTO 500 






110 


VPOS=15 :HPOS=6 : PRINT CHR$ (31) ; 






111 


VPOS=15:HPOS=6:INPUT"Total number of drives to be cleaned: ";total% 






112 


IF total%>4 OR tOtal%<l THEN PRINT CHR$ ( 7 ) ; : GOTO 110 






113 


VPOS=17 :HPOS=6 : PRINT CHR$(31); 






114 


VPOS=17 :HPOS=6 : INPUT"What drive do you want to start with?: ";start% 






115 


IF start%>4 OR start%<l THEN PRINT CHR$ ( 7 ) ; : GOTO 113 






116 


whoa%=start%+total%-l 






118 


ON ERR GOTO 500 






119 


WINDOW 6,22 TO 80,24 






120 


FOR countl%=start% TO whoa% 






130 


HOME: OFF KBD 






140 


PRINT"Insert the cleaning disk in drive . D" ; count 1% : PRINT 






150 


PRINT"Press ' RETURN 1 to begin, 'ESCAPE' to end."; 






160 


GET g$:IF g$=CHR$(27) THEN 300 






170 


IF g$OCHR$(13) THEN PRINT CHR$ ( 7 ) ; : GOTO 160 






180 


HOME: PRINT 






185 


ON KBD GOTO 600 






190 


PRINT"Cleaning drive .D" ; count 1% ;" , 'ESCAPE' to abort. Please wait"; 






200 


FOR count2%=l TO 10 






210 


ON ERR IF ERR=32 GOTO 230:ELSE GOTO 500 






220 


CATALOG (" .D"+CONV$ (COuntl%) ) 






225 


HOME: PRINT: INVERSE :PRINT"NOT A CLEANING DISK. PRESS 'RETURN'." 






226 


NORMAL: GET g$:GOTO 130 






230 


PRINT"."; 






235 


ON ERR GOTO 500 






240 


NEXT 






250 


NEXT 






300 


HOME : TEXT : OFF KBD 






310 


VPOS=18 :HPOS=6 : PRINT CHR$(2); 






320 


INVERSE : PRINT" 'RETURN' to repeat, 'ESCAPE' to exit" ;: NORMAL 






330 


GET g$:IF g$=CHR$(13) THEN 10 






340 


IF g$OCHR$(27) THEN PRINT CHR$ ( 7 ) ; : GOTO 330 






350 


TEXT : HOME : END 






500 


TEXT :VPOS=23:HPOS=l: INVERSE :PRINT"Error #"; ERR; " in Line #"; ERRLIN; 






510 


NORMAL : END 






600 


IF KBD=27 THEN POP: GOTO 300 






610 


ON KBD GOTO 600 






620 


RETURN 
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